---
   WRITEFILE()     Writes a line or lines  to a text file
                   accepts either an array or a character string
     Param         <file>          FILENAME OR FILEHANDLE,

     Usage         Writefile(<file>,<writestuff>)
     Param         <file>          FILENAME OR FILEHANDLE,
                   <writestuff>    ARRAYNAME OR CHARACTER STRING

     Notes         IF A FILENAME IS PASSED, THE FILE IS OPENED AND
                   CLOSED BY THE FUNCTION.

                   IF A FILE HANDLE IS PASSED, THE FILE IS LEFT OPEN.

                   IF A CHARACTER ARRAY IS PASSED, EACH ELEMENT IS
                   WRITTEN TO A SEPERATE LINE IN THE FILE.

                   DO NOT PASS AN ARRAY - PASS AN ARRAY NAME IN QUOTES

                   IF THE FILE DOES NOT EXIST, IT IS CREATED.


     Example
                   1.     WRITEFILE('ERROR.TXT','THERE WAS AN ERROR')

                   2.     declare errors[3]
                          errors[1] = 'There was an error'
                          errors[2] = 'Error # 61765     '
                          errors[3] = dtoc(date)
                          writefile('ERROR.TXT','ERRORS')

                   3.     handle = fopen("error.txt",1)
                          declare errors[3]
                          errors[1] = 'There was an error'
                          errors[2] = 'Error # 61765     '
                          errors[3] = dtoc(date)
                          writefile(handle,'ERRORS')